home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / ASUMM.PRG < prev    next >
Text File  |  1980-01-01  |  3KB  |  92 lines
  1. * ASUMM
  2. * PRINT SUMMARY OF ACCOUNTS
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. SET STATUS OFF
  6. CLEAR
  7. CLEAR ALL
  8. SET TALK OFF
  9. SET BELL OFF
  10. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  11. @ 3,21 SAY ">> Accounting System Summary Report <<"
  12. @ 5,29 SAY "Today's Date: "
  13. ?? DATE()
  14. STORE SUBSTR(DTOC(DATE()),1,2) TO MONTH
  15. @ 15,6 SAY "Month to Summarize in Report " GET MONTH PICTURE "99"
  16. STORE " " TO ACTION
  17. @ 22,6 SAY "ENTER NUMERIC VALUE OF MONTH TO SUMMARIZE, OR PRESS ENTER IF O.K."
  18. @ 23,6 SAY "PRESS 'M' TO RETURN TO MENU, ANY OTHER KEY TO START OUTPUT => " ;
  19. GET ACTION
  20. READ
  21. STORE UPPER(ACTION) TO ACTION
  22. IF ACTION="M"
  23.    RETURN
  24. ENDIF
  25. * SET UP VARIABLE IDENTIFYING MONTH
  26. IF VAL(MONTH)<10
  27.    STORE "MONTH"+SUBSTR(MONTH,2,1) TO TMONTH
  28. ELSE
  29.    STORE "MONTH"+MONTH TO TMONTH
  30. ENDIF
  31. * OPEN CHART OF ACCOUNTS FILE USING ACCOUNT NUMBER INDEX
  32. USE ACCTCHRT INDEX ACCOUNT
  33. SET PRINT ON
  34. SET DEVICE TO PRINT
  35. SET CONSOLE OFF
  36. GO TOP
  37. STORE 0 TO RECNOW
  38. STORE 1 TO PAGENUM
  39. STORE 0 TO INC_TOTAL
  40. STORE 0 TO EXP_TOTAL
  41. STORE 0 TO MINC_TOTAL
  42. STORE 0 TO MEXP_TOTAL
  43. DO WHILE .NOT. EOF()
  44. * PRINT HEADING
  45.    @ 2,0 SAY "SMITH'S BIKEWORKS ACCOUNT SUMMARY FOR MONTH: "
  46.    ?? MONTH," TODAY'S DATE:",DATE(), "PAGE:", STR(PAGENUM,2,0)
  47.    @ 4,0 SAY "Account"
  48.    @ 4,17 SAY "Title"
  49.    @ 4,41 SAY "Type"
  50.    @ 4,56 SAY "Month Amt"
  51.    @ 4,69 SAY "YTD Amount"
  52. * PRINT ONE PAGE OF OUTPUT
  53.    STORE 6 TO LINECNT
  54.    DO WHILE LINECNT<60
  55.       @ LINECNT,0 SAY ACCT_NUM
  56.       @ LINECNT,10 SAY ACCT_DESC
  57.       DO CASE
  58.          CASE ACCT_TYPE="I"
  59.             @ LINECNT,40 SAY "INCOME"
  60.             STORE MINC_TOTAL+&TMONTH TO MINC_TOTAL
  61.             STORE INC_TOTAL+ACCT_YTD TO INC_TOTAL
  62.          CASE ACCT_TYPE="E"
  63.             @ LINECNT,40 SAY "EXPENSE"
  64.             STORE MEXP_TOTAL+&TMONTH TO MEXP_TOTAL
  65.             STORE EXP_TOTAL+ACCT_YTD TO EXP_TOTAL
  66.          OTHERWISE
  67.             @ LINECNT,40 SAY "OTHER"
  68.       ENDCASE
  69.       @ LINECNT,55 SAY &TMONTH
  70.       @ LINECNT,68 SAY ACCT_YTD
  71.       STORE LINECNT+2 TO LINECNT
  72.       ?
  73. * STAY IN LOOP WHILE SKIP YIELDS A NEW RECORD
  74.       STORE RECNO() TO RECNOW
  75.       SKIP 1
  76.       IF EOF()
  77. * OUTPUT TOTALS FOR THE REPORT AT END OF INPUT RECORDS
  78.          ?
  79.          ? "INCOME  -- MONTH",MONTH," $",MINC_TOTAL,"  YTD: $",INC_TOTAL
  80.          ? "EXPENSE -- MONTH",MONTH," $",MEXP_TOTAL,"  YTD: $",EXP_TOTAL
  81.          STORE 60 TO LINECNT
  82.       ENDIF
  83.    ENDDO
  84.    EJECT
  85.    STORE PAGENUM+1 TO PAGENUM
  86. ENDDO
  87. SET PRINT OFF
  88. SET CONSOLE ON
  89. SET DEVICE TO SCREEN
  90. CLEAR
  91. RETURN
  92.